home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / untcnvrs.sit / Unit Conversion / card_5557.txt < prev    next >
Text File  |  1990-11-02  |  9KB  |  355 lines
  1. -- card: 5557 from stack: in
  2. -- bmap block id: 6652
  3. -- flags: 0000
  4. -- background id: 3044
  5. -- name: Area
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into background field "toconvert"
  9.   put empty into background field "answer"
  10. end closeCard
  11.  
  12.  
  13.  
  14. -- part 14 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=282 top=55 right=82 bottom=474
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Cm  to Inches  (Squared)
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   set numberformat to 0.000
  29.   put empty into background field "answer"
  30.   get first word of background field "toconvert"
  31.   put it into temp
  32.   if temp is "-" then
  33.     get second word of background field "toconvert"
  34.     divide it by -1
  35.     put it into temp
  36.   end if
  37.   put empty into background field "toconvert"
  38.   if temp is empty then
  39.     put temp && "0 Sq. Centimeters" into background field "toconvert"
  40.   else
  41.     put temp && " Sq. Centimeter" into background field "toconvert"
  42.   end if
  43.   multiply temp by 0.1550
  44.   put temp && " Sq. Inches" into background field "answer"
  45.   put empty into temp
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 15 (button)
  51. -- low flags: 00
  52. -- high flags: A003
  53. -- rect: left=282 top=87 right=114 bottom=474
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Inches  to Cm  (Squared)
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set numberformat to 0.000
  65.   put empty into background field "answer"
  66.   get first word of background field "toconvert"
  67.   put it into temp
  68.   if temp is "-" then
  69.     get second word of background field "toconvert"
  70.     divide it by -1
  71.     put it into temp
  72.   end if
  73.   put empty into background field "toconvert"
  74.   if temp is empty then
  75.     put temp && "0 Sq. Inches" into background field "toconvert"
  76.   else
  77.     put temp && " Sq. Inches" into background field "toconvert"
  78.   end if
  79.   divide temp by 0.1550
  80.   put temp && " Sq. Centimeters" into background field "answer"
  81.   put empty into temp
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 16 (button)
  87. -- low flags: 00
  88. -- high flags: A003
  89. -- rect: left=282 top=122 right=149 bottom=474
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Meters  to Feet  (Squared)
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   set numberformat to 0.000
  101.   put empty into background field "answer"
  102.   get first word of background field "toconvert"
  103.   put it into temp
  104.   if temp is "-" then
  105.     get second word of background field "toconvert"
  106.     divide it by -1
  107.     put it into temp
  108.   end if
  109.   put empty into background field "toconvert"
  110.   if temp is empty then
  111.     put temp && "0 Sq. Meters" into background field "toconvert"
  112.   else
  113.     put temp && " Sq. Meters" into background field "toconvert"
  114.   end if
  115.   multiply temp by 10.764
  116.   put temp && " Sq. Feet" into background field "answer"
  117.   put empty into temp
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 17 (button)
  123. -- low flags: 00
  124. -- high flags: A003
  125. -- rect: left=282 top=154 right=181 bottom=474
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Feet  to Meters  (Squared)
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   set numberformat to 0.000
  137.   put empty into background field "answer"
  138.   get first word of background field "toconvert"
  139.   put it into temp
  140.   if temp is "-" then
  141.     get second word of background field "toconvert"
  142.     divide it by -1
  143.     put it into temp
  144.   end if
  145.   put empty into background field "toconvert"
  146.   if temp is empty then
  147.     put temp && "0 Sq. Feet" into background field "toconvert"
  148.   else
  149.     put temp && " Sq. Feet" into background field "toconvert"
  150.   end if
  151.   divide temp by 10.764
  152.   put temp && " Sq. Meters" into background field "answer"
  153.   put empty into temp
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 18 (button)
  159. -- low flags: 00
  160. -- high flags: A003
  161. -- rect: left=282 top=188 right=215 bottom=474
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Meters  to Yards  (Squared)
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   set numberformat to 0.000
  173.   put empty into background field "answer"
  174.   get first word of background field "toconvert"
  175.   put it into temp
  176.   if temp is "-" then
  177.     get second word of background field "toconvert"
  178.     divide it by -1
  179.     put it into temp
  180.   end if
  181.   put empty into background field "toconvert"
  182.   if temp is empty then
  183.     put temp && "0 Sq. Meters" into background field "toconvert"
  184.   else
  185.     put temp && " Sq. Meters" into background field "toconvert"
  186.   end if
  187.   multiply temp by 1.196
  188.   put temp && " Sq. Yards" into background field "answer"
  189.   put empty into temp
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 19 (button)
  195. -- low flags: 00
  196. -- high flags: A003
  197. -- rect: left=282 top=222 right=249 bottom=474
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Yards  to Meters  (Squared)
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   set numberformat to 0.000
  209.   put empty into background field "answer"
  210.   get first word of background field "toconvert"
  211.   put it into temp
  212.   if temp is "-" then
  213.     get second word of background field "toconvert"
  214.     divide it by -1
  215.     put it into temp
  216.   end if
  217.   put empty into background field "toconvert"
  218.   if temp is empty then
  219.     put temp && "0 Sq. Yards" into background field "toconvert"
  220.   else
  221.     put temp && " Sq. Yards" into background field "toconvert"
  222.   end if
  223.   divide temp by 1.196
  224.   put temp && " Sq. Meters" into background field "answer"
  225.   put empty into temp
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 24 (button)
  231. -- low flags: 00
  232. -- high flags: A003
  233. -- rect: left=283 top=290 right=317 bottom=474
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: More Conversions
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   get background field "toconvert"
  245.   visual effect wipe right slowly
  246.   go to card "Area2"
  247.   put it into background field "toconvert"
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 30 (button)
  253. -- low flags: 00
  254. -- high flags: 2000
  255. -- rect: left=75 top=288 right=305 bottom=134
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Distance
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   visual effect zoom open
  267.   go to card Distance
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 28 (button)
  273. -- low flags: 00
  274. -- high flags: A003
  275. -- rect: left=283 top=259 right=286 bottom=474
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: Additional Notes
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   visual effect zoom open
  287.   go to card addinfo
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 33 (button)
  293. -- low flags: 00
  294. -- high flags: 2000
  295. -- rect: left=135 top=288 right=305 bottom=194
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Volume
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   visual effect zoom open
  307.   go to card Volume
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part 31 (button)
  313. -- low flags: 00
  314. -- high flags: 2000
  315. -- rect: left=75 top=306 right=323 bottom=134
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: Temperature
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   visual effect zoom open
  327.   go to card weight
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 36 (button)
  333. -- low flags: 00
  334. -- high flags: 2000
  335. -- rect: left=135 top=306 right=323 bottom=194
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Temperature
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   visual effect zoom open
  347.   go to card temperature
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part contents for background part 7
  353. ----- text -----
  354. Area
  355. Conversions